home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Textra120 / Scripts / JForth_Scripts / tojf.textra < prev    next >
Encoding:
Text File  |  1991-07-31  |  228 b   |  11 lines
  1. /* send a string to the JForth interpreter... */
  2.  
  3. OPTIONS results
  4.  
  5. parse arg theString   /* get the argument */
  6. if (theString == "") then
  7.     theString = '" JForth Professional just says HI!" $type cr'
  8.  
  9. address 'JFORTH' theString
  10.  
  11.